﻿Public Class ListProduct
    Inherits BasePage

    Protected dsSource As DataSet

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Call GetProductList()
        Catch ex As Exception

        End Try
    End Sub

    Protected Overridable Sub GetProductList()
        Dim xSql As String
        Dim da As DBAccess
        Dim ds As DataSet

        Try
            da = GetDBAccess()

            xSql = "SELECT * FROM T_PRODUCT ORDER BY CODE"

            ds = da.GetDBDataset(xSql)
            dsSource = ds

        Catch ex As Exception
            Throw
        End Try

    End Sub

    Private Sub ListProduct_PreInit(sender As Object, e As System.EventArgs) Handles Me.PreInit
        Try
            Dim master As AdminMasterPage = DirectCast(Me.Page.Master, AdminMasterPage)
            master.CssLinkAdd(ResolveUrl("~/Style/ListProduct.css"))
        Catch ex As Exception

        End Try
    End Sub
End Class